inherited frmSubsecao: TfrmSubsecao
  Left = 219
  Top = 116
  Width = 761
  Height = 486
  AutoScroll = True
  Caption = ''
  Font.Name = 'Verdana'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 753
  end
  inherited Panel2: TPanel
    Width = 753
    Height = 415
    inherited Panel3: TPanel
      Width = 751
      Caption = 'Subse'#231#245'es'
      inherited GroupBox1: TGroupBox
        Left = 667
        Width = 80
        inherited edtRegistro: TEdit
          Width = 80
        end
      end
    end
    inherited Panel4: TPanel
      Width = 751
      Height = 373
      Font.Name = 'Verdana'
      ParentCtl3D = False
      ParentFont = False
      object Label1: TLabel [0]
        Left = 23
        Top = 70
        Width = 33
        Height = 14
        Caption = 'C'#243'digo'
        FocusControl = edtCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 77
        Top = 70
        Width = 79
        Height = 14
        Caption = 'Nome Subse'#231#227'o'
        FocusControl = edtNome
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 23
        Top = 30
        Width = 31
        Height = 14
        Caption = 'Se'#231#227'o'
        FocusControl = edtCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 743
        TabOrder = 6
        TitleFont.Name = 'Verdana'
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 743
      end
      object edtCodigo: TDBEdit
        Left = 23
        Top = 83
        Width = 45
        Height = 21
        Hint = ' C'#243'digo da sub-se'#231#227'o do produto  '
        CharCase = ecUpperCase
        DataField = 'SUB_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnExit = edtCodigoExit
      end
      object edtNome: TDBEdit
        Left = 77
        Top = 83
        Width = 289
        Height = 21
        Hint = ' Nome da Sub-se'#231#227'o '
        CharCase = ecUpperCase
        DataField = 'SUB_NOME'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnExit = edtNomeExit
      end
      object EdtSecCod: TDBEdit
        Left = 23
        Top = 43
        Width = 45
        Height = 21
        Hint = 'Codigo da Se'#231#227'o do produto'
        CharCase = ecUpperCase
        DataField = 'SUB_SECCOD'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtSecCodExit
      end
      object BtnSecao: TBitBtn
        Left = 68
        Top = 43
        Width = 25
        Height = 21
        Hint = 'Pesquisa se'#231#227'o.'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtnSecaoClick
      end
      object EdtSecNom: TEdit
        Left = 92
        Top = 43
        Width = 276
        Height = 21
        Hint = 'Exibe a se'#231#227'o.'
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        Ctl3D = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 3
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Subsecao
  end
  object SQLC_Subsecao: TSQLClientDataSet
    CommandText = 
      'select * from SUBSECAO '#13#10'where SUB_SECCOD=:pseccod and SUB_CODIG' +
      'O=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pseccod'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 496
    Top = 7
    object SQLC_SubsecaoSUB_SECCOD: TStringField
      FieldName = 'SUB_SECCOD'
      Required = True
      Size = 3
    end
    object SQLC_SubsecaoSUB_CODIGO: TStringField
      FieldName = 'SUB_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_SubsecaoSUB_NOME: TStringField
      FieldName = 'SUB_NOME'
      Required = True
      Size = 40
    end
  end
end
